﻿Imports System

Namespace System.Workflow.Activities
    Friend NotInheritable Class SubscriptionEventArg
        Inherits EventArgs
        ' Methods
        Friend Sub New(ByVal args As EventArgs, ByVal subType As EventType)
            Me._args = args
            Me._subscriptionType = subType
        End Sub

        Public Overrides Function ToString() As String
            Return ("SubscriptionEventArg(" & If((Me._args Is Nothing), "null", Me._args.ToString) & ")")
        End Function


        ' Properties
        Friend ReadOnly Property Args As EventArgs
            Get
                Return Me._args
            End Get
        End Property

        Friend ReadOnly Property SubscriptionType As EventType
            Get
                Return Me._subscriptionType
            End Get
        End Property


        ' Fields
        Private _args As EventArgs
        Private _subscriptionType As EventType
    End Class
End Namespace

